#Region "using directives"

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.IO
#End Region

Namespace TapiSampleApplication
	Public Partial Class Settings
		Inherits Form

		#Region "Constructors"

		Public Sub New()

		End Sub

		Public Sub New(ByVal folderName As String)
			InitializeComponent()
			txtFolderPath.Text = folderName
		End Sub

		#End Region


		#Region "Event Handlers"


		#End Region

		Private Sub btnBrowse_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBrowse.Click
			Dim folderDialog As FolderBrowserDialog = New FolderBrowserDialog()
			folderDialog.Description = "Choose folder for log file."
			folderDialog.ShowNewFolderButton = True
			If folderDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
				txtFolderPath.Text = folderDialog.SelectedPath
			End If
		End Sub

		Private Sub btnOK_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnOK.Click
			 Me.Close()
		End Sub

		Friend Function GetLogFileName() As String
			Return txtFolderPath.Text & "\" & txtLogFileName.Text
		End Function
	End Class
End Namespace